From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 13 Jun 2007 00:04:04 +0000 (+0000)
Subject: (save-completions-file-name): Use user-emacs-directory.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18453
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=cc972c6b1fa39f0196654b9488362187537f0bd2;p=emacs.git

(save-completions-file-name): Use user-emacs-directory.
---

diff --git a/lisp/completion.el b/lisp/completion.el
index 25b95852536..c9e27ab3091 100644
--- a/lisp/completion.el
+++ b/lisp/completion.el
@@ -301,9 +301,9 @@ See also `save-completions-retention-time'."
   (let ((olddef (convert-standard-filename "~/.completions")))
     (cond
      ((file-readable-p olddef) olddef)
-     ((file-directory-p (convert-standard-filename "~/.emacs.d/"))
+     ((file-directory-p user-emacs-directory)
       (convert-standard-filename
-       (expand-file-name "completions" "~/.emacs.d/")))
+       (expand-file-name "completions" user-emacs-directory)))
      (t olddef)))
   "The filename to save completions to."
   :type 'file